dim filename
filename = inputbox("color demo ?",filename,"0")

'RUN COMMAND "Z 1"
dim fileroot :fileroot =application.activedocument.path
dim tempFile :tempFile = fileroot & "\tmp.mcr"
dim doc	:set doc = application.activedocument
Set fso = CreateObject("Scripting.FileSystemObject")
dim target : target = "z"
dim ocmd : ocmd="z 1"
dim file
Set file = fso.CreateTextFile(tempFile, True)	
fileContent = "Application.ModelessCommand("""& target &""")" 
file.Writeline fileContent
fileContent = "DlgModelessCmd.Command = " & chr(34) & ocmd & chr(34)
file.Writeline fileContent
fileContent = "DlgModelessCmd.OnOk()"
file.Writeline fileContent
file.close
'Application.RunMacro(tempFile)

'InVisible TOP LAYER
Set file = fso.CreateTextFile(tempFile, True)	
fileContent = "Application.ExecuteCommand(""Display Colors Setup"")" 
file.Writeline fileContent
fileContent = "DisplayColorsSetupDlg.ColorGrid.Cell(""TOP"", ""#"") = ""0"""
file.Writeline fileContent
fileContent = "DisplayColorsSetupDlg.ColorGrid.ClearSelection"
file.Writeline fileContent
fileContent = "DisplayColorsSetupDlg.Ok.Click()"
file.Writeline fileContent
file.close
Application.RunMacro(tempFile)
'Loadfiles
Application.ExecuteCommand("Display Colors Setup")
DisplayColorsSetupDlg.Configuration = filename
DisplayColorsSetupDlg.Ok.Click()
set file = nothing
set fso = nothing